home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / soundtst.mod < prev    next >
Text File  |  1995-11-25  |  2KB  |  77 lines
  1. MODULE SoundTst;
  2. FROM Sounds IMPORT Sound,Wave,Volume,SoundOnOff,Noise,Play;
  3.  
  4. VAR i :INTEGER;
  5.  
  6. BEGIN
  7.    SoundOnOff(7);(* Sound off *)
  8.    Noise(7,10);(* noise off *)
  9.    Sound(1,0);
  10.    Sound(2,0);
  11.    Sound(3,0);
  12.    SoundOnOff(0);(* Sound On,alle Kanäle *)
  13.    Sound(1,300);
  14.    Sound(2,700);
  15.    Sound(3,900);
  16.    Volume(1,5);
  17.    Volume(2,10);
  18.    Volume(3,15);
  19.    Wave(1,14,500);
  20.    Wave(2,12,5000);
  21.    Wave(3,8,1000);
  22.    Noise(2,10);
  23.    Noise(3,31);
  24.    Noise(1,5);
  25.    Noise(7,10);(* Rauschen aus ,alle kanäle*)
  26.    SoundOnOff(0);(* Sound On,alle Kanäle *)
  27.    Sound(1,00);
  28.    Sound(2,00);
  29.    Sound(3,00);
  30.    Volume(2,15);
  31.    Volume(3,15);
  32.    Sound(2,200);
  33.    Sound(3,400);
  34.    Noise(1,15);
  35.    Wave(1,14,500);
  36.    Noise(7,10);
  37.    SoundOnOff(0);(* Sound On,alle Kanäle *)
  38.    Volume(1,15);
  39.    Volume(2,10);
  40.    Volume(3,15);
  41.    FOR i := 500 TO  4000 DO
  42.       Sound(3,i);
  43.       Sound(2, i DIV 2);
  44.       Sound(1,i DIV 3);
  45.    END(*FOR*);
  46.    FOR  i := 4000 TO  500 BY -1 DO
  47.        Sound(1,i);
  48.        Sound(3, i DIV 2);
  49.        Sound(2,i DIV 3);
  50.  
  51.    END(*FOR*);
  52.    Noise(7,10); (* noise off *)
  53.    SoundOnOff(7);(* Sound off,alle Kanäle *)
  54.    Sound(1,0);
  55.    Sound(2,0);
  56.    Sound(3,0);
  57.  
  58.    (******)
  59.    Sound(1,300);
  60.    Sound(2,700);
  61.    Sound(3,900);
  62.    Volume(1,5);
  63.    Volume(2,10);
  64.    Volume(3,15);
  65.    Wave(1,14,500);
  66.    Wave(2,12,5000);
  67.    Wave(3,8,1000);
  68.    (*Noise(2,10);
  69.    Noise(3,31);
  70.    Noise(1,5);*)
  71.  
  72. (*   Noise(2,0);
  73.    Noise(3,0);
  74.    Noise(1,0);*)
  75.  
  76. END SoundTst.
  77.